home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Network Login Background.xpl < prev    next >
Text File  |  2003-01-27  |  2KB  |  85 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\60) Before Login Window"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\30) Before Login Window"
  6. "NAME"="Background: Color"
  7. "VERSION"="1.20"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Set Color"
  10. "TEXT 2"="Reset Color"
  11. "DESCRIPTION 1"="You can change the background color, that is displayed before any user is able to login (means: before the login window appears), with this plug-in."
  12. "DESCRIPTION 2"="Either you set the color here or reset to the default color by clicking on "Reset Color"."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for this option."
  17. "COMMENT 2"="Thanks to Edwin de Vaan [edwin@novi.net] for the white-color-bug notice!"
  18.  
  19.  
  20. 'Cyan 00 FF FF
  21. 'Magenta FF 00 FF
  22. sP="HKUS\.DEFAULT\Control Panel\Colors\Background"
  23. Sub Plugin_Initialize 
  24.                                'Farbe RR GG BB (:BB 
  25.   Call SetUIElement(1,"Red")   'FF 00 00
  26.   Call SetUIElement(2,"Green") '00 FF 00
  27.   Call SetUIElement(3,"Blue")  '00 00 FF
  28.   Call SetUIElement(4,"Yellow")'Gelb FF FF 00
  29.   Call SetUIElement(5,"White") 'Wei▀ FF FF FF
  30.   Call SetUIElement(6,"Black") 'Schwarz 00 00 00
  31.   Call SetUIElement(7,"Brown") 'Braun A5 2A 2A
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  If ElementIndex=1 then 'Set Color
  39.     if ElementSubIndex=0 then 
  40.        Call MsgWarning("No item selected - please select an item first.")
  41.        Exit sub
  42.     end if
  43.  
  44.     s=""
  45.  
  46.     Select Case ElementSubIndex
  47.     Case 1 'Red
  48.      s="255 00 00"
  49.     Case 2 'Green
  50.      s="00 255 00"
  51.     Case 3 'Blue
  52.      s="00 00 255"
  53.     Case 4 'Yellow
  54.      s="255 255 00"
  55.     Case 5 'White
  56.      s="255 255 255" 'incorrect: "255 225 225"
  57.     Case 6 'Black
  58.      s="00 00 00"
  59.     Case 7 'Brown
  60.      s="165 42 42"
  61.  
  62.     End Select
  63.  
  64.     Call RegWriteValue(sp,s,1)    
  65.     Call MsgInformatioN("The new color has been set")
  66.  
  67.  else 'Reset Color
  68.     s=RegReadValue(sp)
  69.     if not IsEmpty(s) then
  70.        Call RegDeleteValue(sp)
  71.     end if       
  72.  
  73.     Call MsgInformatioN("The default color has been restored")
  74.  end if
  75.  
  76.  
  77.  Call Logoff()
  78. End Sub
  79.  
  80. Sub Plugin_Terminate 
  81. End Sub
  82.  
  83.  
  84.  
  85.